home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
K-L
/
LImacSTACK11⁄89.cpt
/
LImacSTACK.11_89
/
background_6406.txt
< prev
next >
Wrap
Text File
|
1989-11-02
|
2KB
|
102 lines
-- background: 6406 from stack: in.11_89
-- bmap block id: 6676
-- flags: 0000
-- background id: 0
-- name: Directory
----- HyperTalk script -----
on savethis
push cd
visual dissolve very slow to white
visual dissolve very slow to black
go cd "BLACK2"
visual dissolve
go cd "brought by"
wait 120
visual dissolve
go cd "BLACK2"
go cd "Credit"
play "firebird"
visual dissolve
go stack "ali baa baa"
end savethis
-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=117 top=74 right=326 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 256
-- line height: 42
-- part name: stack list
----- HyperTalk script -----
on mouseUp
get the short name of this cd
if it is "stacks"
then
get clickLine()
put line it of me into whatget
select line it of me
if the selection is not empty
then
push cd
if the selection contains "ResEdit"
then
open "ResEdit ver 1.2b2"
else
visual dissolve slow to white
visual dissolve slow to black
go stack whatGet
end if
end if
end if
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=465 top=296 right=331 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 6721 / 6721
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
visual iris close to grey
visual iris open
pop cd
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=439 top=303 right=323 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 4465 / 4465
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Index
----- HyperTalk script -----
on mouseUp
push cd
visual barn door close to black
visual barn door open
go cd "LImacSTACK index"
end mouseUp